home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / util / misc / GadMget1_95.lha / GadMget / AutoFTP.script next >
Text File  |  1995-05-28  |  2KB  |  63 lines
  1. ; Autoftp : A script to automatically ftp files from an Aminet archive site.
  2. ;
  3. ; Autoftp uses ncftp and AmiTCP to function, if you don't have both of these
  4. ; working, Autoftp won't be useful to you.
  5. ;
  6. ; Keywords accepted :  YES -- Download a new RECENT file, without asking user
  7. ;                       NO -- Don't download the new RECENT file
  8. ;              (otherwise) -- Display a requester asking whether to download
  9. ;                             the new RECENT file or not.
  10. ; 
  11. ; THINGS TO CHANGE FOR YOUR SETUP
  12. ;
  13. ; 1) Make sure the EasyReq and UniqueFile commands are in your search 
  14. ;    path... c: is a good place for them.
  15. ; 2) Make sure GadMget is in your search path, or specify it's location
  16. ;    on the line where it is called, below
  17. ; 3) If you want to use a site other than ftp.netnet.net, search
  18. ;    and replace it with the name of your preferred site
  19. ; 4) Autoftp is currently configured to store the RECENT file in txt:, and
  20. ;    the downloads in dn:.  Assign these directories to where you want
  21. ;    the files kept, or change the references in the script.
  22. ;
  23. .bra {
  24. .ket }
  25. .key GETRECENT
  26. failat 25
  27.  
  28. stack 50000        ;ncftp can abort if it doesn't have plenty of stack!
  29.  
  30. if {GETRECENT} EQ "YES"
  31.     echo "1" > env:GadAnswer
  32. else
  33.     if {GETRECENT} EQ "NO"
  34.         echo "2" >env:GadAnswer
  35.     else
  36.         easyreq >env:GadAnswer "Do you want to download a new RECENT listing?" "GadMGet Script" "Yes|No|Cancel"
  37.     endif
  38. endif
  39.  
  40. if $GadAnswer eq 0
  41.     endcli
  42.     quit
  43. endif
  44.  
  45. if $GadAnswer eq 1
  46.   cd txt:            ;Change this to wherever you wish to keep RECENT
  47.   amitcp:bin/ncftp -r ftp.netnet.net:/pub/aminet/RECENT    ;Change this to your favorite FTP site
  48. endif
  49.  
  50. uniquefile t:AutoFTP.GetList >env:GETLISTFILE
  51.  
  52. ;You may need to specify the path to GadMGet here if it's not in your default path!
  53. gadmget txt:recent OUTPUT $GETLISTFILE NOSIMPLEPATHS KEEPGETSORT GETSORT Size
  54.  
  55. if not `list $GETLISTFILE lformat="%L"` eq "empty"
  56.     cd dn:        ;Change this to wherever you want to receive your new files
  57.     amitcp:bin/ncftp -r ftp.netnet.net:/pub/aminet/ <$GETLISTFILE    ;Change this site as well
  58. endif
  59.  
  60. delete env:GETLISTFILE QUIET
  61.  
  62. endcli
  63.